Public Class ReportsClass
    Function CurrentSelection(ByVal ID As Int32) As DataSet
        Try
            Dim oRibs As New RibsClass
            Dim ds As DataSet = oRibs.GetRibsItem(ID)
            Dim drel As New DataRelation("RibAcrion", _
                        ds.Tables("Ribs").Columns("RibsID"), _
                        ds.Tables("ActionHistory").Columns("RibsID"))
            ds.Relations.Add(drel)
            Return ds
        Catch ex As Exception
            Throw ex
        End Try

    End Function
End Class
